uses
  CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Progressbar1.Brush.Color := clTeal;
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
end;
